perm filename TST.SAI[HAL,HE] blob sn#235507 filedate 1976-09-06 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TST"
C00003 ENDMK
C⊗;
BEGIN "TST"
EXTERNAL PROCEDURE BAIL;
REQUIRE 100 NEW_ITEMS;
RECORD_CLASS FOO(INTEGER I);
RECORD_POINTER(FOO) A,B,C,D,E;
LIST L;
EXTERNAL STRING !!QUERY;
!!QUERY←"DEFINE(""M"",""MEMORY"");DEFINE(""L"",""LOCATION"");DEFINE(""I"",""FOO:I"");"
A←NEW_RECORD(FOO);
B←NEW_RECORD(FOO);
C←NEW_RECORD(FOO);
D←NEW_RECORD(FOO);
E←NEW_RECORD(FOO);
FOO:I[A]←1;
FOO:I[B]←2;
FOO:I[C]←3;
FOO:I[D]←4;
FOO:I[E]←5;
L←ARG_LIST(A, VALUE B, VALUE C, VALUE D, VALUE E);
BAIL;
END "TST"